home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / cadgeo.sda / ﾈ (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  6KB  |  100 lines
  1. 1 REM COPYRIGHT 1987 DJ SHERREN
  2. 2 SYS36864:A=USR(64),X,Y:SYS36885
  3. 3 IFRT=0THENRT=1:GOSUB64
  4. 4 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
  5. 5 A=USR(21):A=USR(17):A=USR(1):OPEN15,D0,15,"UI:":CLOSE15
  6. 6 GOSUB31:IFE<>0THEN84
  7. 7 GOSUB45:IFE<>0THEN84
  8. 8 GOSUB57:IFE<>0THEN84
  9. 9 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16)
  10. 10 R=4:T=18:A=USR(39),0,8:A=USR(32),0
  11. 11 A$="[168]":GOTO13
  12. 12 GOSUB58:GETA$:IFA$=""THEN12
  13. 13 IFA$="[168]"THENR=R+1:T=T+1:IFR=5THENR=1:T=18
  14. 14 IFA$="[168]"THENA=USR(39),0,T:GOTO12
  15. 15 IFA$="[147]"THENSYS36888:GOTO12
  16. 16 IFA$=CHR$(133)THENSYS36867:GOTO12
  17. 17 IFA$=CHR$(20)THENSYS4994:GOSUB58:GOTO12
  18. 18 IFA$=CHR$(136)THEN91
  19. 19 IFA$=CHR$(140)THENA=USR(33),0:GOTO96
  20. 20 IFA$=CHR$(13)THEN30
  21. 21 B$=A$:AA=ASC(A$+CHR$(0)):IFAA<32THENGOTO12
  22. 22 AA=AA-32*((64<AA)AND(AA<91))+128*((192<AA)AND(AA<219)):AA=AA-32
  23. 23 IFAA<0ORAA>95THENGOTO12
  24. 24 SYS4991,X,Y,AA,R
  25. 25 ONRGOTO26,27,28,29
  26. 26 X=X+EI-SI+1:GOTO12
  27. 27 Y=Y-(EI-SI)-1:GOTO12
  28. 28 X=X-(EI-SI)-1:GOTO12
  29. 29 Y=Y+EI-SI+1:GOTO12
  30. 30 GOTO67
  31. 31 PRINTCHR$(14)"[147][201]NSERT [199]--- [198]ONT [196]ISK IN [196]RIVE : ";D1
  32. 32 PRINT:PRINT"[208]RESS ANY KEY TO CONTINUE"
  33. 33 GETA$:IFA$=""THENGOTO33
  34. 34 PRINT"[211]CANNING [196]ISK [196]IRECTORY FOR [198]ONT [198]ILES"
  35. 35 SYS4997,18,0,D1:GOSUB83
  36. 36 SYS5003
  37. 37 IFNF>0THENRETURN
  38. 38 IFE<>0THENRETURN
  39. 39 PRINT"[147][206]O FONTS ON THIS DISK."
  40. 40 PRINT"[212]YPE 'Y' TO TRY AGAIN OR 'N' TO EXIT TO [195][193][196]."
  41. 41 GETA$:IFA$=""THEN41
  42. 42 IFA$="Y"THENGOTO31
  43. 43 IFA$="N"THENGOTO67
  44. 44 GOTO41
  45. 45 PRINT"[147]"CHR$(14):FORI=0TOINT((NF-1)/2):PRINTI;TAB(4);NF$(I):NEXT
  46. 46 IFNF<2THEN48
  47. 47 PRINT"":FORI=INT((NF-1)/2)+1TONF-1:PRINTTAB(19);I;LEFT$(NF$(I),14):NEXT
  48. 48 PRINT:PRINT:INPUT"[211]ELECT [198]ONT";SF:IFSF<-1ORSF>NF-1THENPRINT"[145]                 ":PRINT"[145][145][145]";:GOTO48
  49. 49 PRINT"[147][199]--- [198]ONT : ";NF$(SF):PRINT:PRINT"[193]VAILABLE [208]OINT [211]IZES : "
  50. 50 SYS4997,FT(SF),FS(SF),D1:GOSUB83
  51. 51 IFE<>0THENRETURN
  52. 52 SYS5000
  53. 53 FORI=0TONP-1:PRINTI;TAB(4);AP(I);TAB(9);" [208]OINT":NEXT
  54. 54 PRINT:INPUT"[211]ELECT [208]OINT [211]IZE ";SP
  55. 55 IFSP<0ORSP>NP-1THENPRINT"[145]                          ":PRINT"[145][145]";:GOTO54
  56. 56 RETURN
  57. 57 SYS4997,PT(SP),PS(SP),D1:GOSUB83:RETURN
  58. 58 X=X+USR(121):Y=Y-USR(122)
  59. 59 IFX>331THENX=X-320
  60. 60 IFX<12THENX=X+320
  61. 61 IFY>239THENY=Y-200
  62. 62 IFY<40THENY=Y+200
  63. 63 A=USR(34),X,Y,0:A=USR(34),16,Y,6:A=USR(34),X,231,7:RETURN
  64. 64 FORI=0TO7:BI(I)=2^I:NEXT:DIMFT(30),FS(30),NF$(30)
  65. 65 FORI=0TO30:NF$(I)="               "+" ":NEXT
  66. 66 DIMAP(10),PT(10),PS(10):TD(0)=18:SD(0)=0:RETURN
  67. 67 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
  68. 68 A=USR(1):A=USR(17):A=USR(19):A=USR(21)
  69. 69 PRINT"[147]"CHR$(14)"[198]1 [212]O [211]ELECT [206]EW [198]ONT":PRINT"   ([212]HIS [196]ISK)"
  70. 70 PRINT"[198]3 [212]O [211]ELECT [206]EW [198]ONT":PRINT"   ([206]EW [196]ISK)"
  71. 71 PRINT"[193]NY [207]THER [203]EY [212]O [197]XIT [212]O [195][193][196]"
  72. 72 GETA$:IFA$=""THEN72
  73. 73 IFA$="[133]"THENGOTO7
  74. 74 IFA$="[134]"THENGOTO6
  75. 75 IFD0<>D1THEN79
  76. 76 PRINT"[147]"CHR$(14):PRINT"[201]NSERT [208]ROGRAM DISK AND"
  77. 77 PRINT"[208]RESS A KEY"
  78. 78 GETA$:IFA$=""THEN78
  79. 79 OPEN15,D0,15,"UI:":OPEN2,D0,2,"BOOT,P,R":CLOSE2:GET#15,E:CLOSE15
  80. 80 IFE<>0THENPRINT"[208]ROGRAM DISK NOT PRESENT.":GOTO78
  81. 81 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(39),0,16:
  82. 82 SYS36864:GOTO91
  83. 83 OPEN15,D1,15,"UI:":CLOSE15:RETURN
  84. 84 PRINT"[196]ISK [197]RROR [206]UMBER:";E
  85. 85 PRINT"[198]1 TO TRY AGAIN"
  86. 86 PRINT"[198]3 TO RETURN TO [195][193][196]"
  87. 87 GETA$:IFA$=""THEN87
  88. 88 IFA$=CHR$(133)THEN6
  89. 89 IFA$=CHR$(134)THEN79
  90. 90 GOTO87
  91. 91 A=USR(33),0:A=USR(39),0,16:A=USR(45),0:A=USR(47),0
  92. 92 A=USR(33),0:SYS36912
  93. 93 GETA$:IFA$=""THEN93
  94. 94 POKE780,ASC(A$):SYS32813
  95. 95 GOTO02
  96. 96 FI$="JJH[200]":SYS36864:DR=PEEK(36863):POKE36863,PEEK(36862):POKE183,LEN(FI$)
  97. 97 FORT=1TOLEN(FI$):POKE827+T,ASC(MID$(FI$,T,1)):NEXT:SYS32792
  98. 98 GETA$:IFA$=""THEN98
  99. 99 POKE36863,DR:SYS36885:GOTO02
  100.